﻿Функция ТекстВКоллекцию_JSON(JSONСтрокой, ВСоответствие = Истина, ИменаСвойствСоЗначениямиДата = Неопределено) Экспорт
	
	ЧтениеJSON = Новый ЧтениеJSON;
	ЧтениеJSON.УстановитьСтроку(JSONСтрокой);
	Результат = ПрочитатьJSON(ЧтениеJSON, ВСоответствие, ИменаСвойствСоЗначениямиДата);
	
	ЧтениеJSON.Закрыть();
	
	Возврат Результат; 
	
КонецФункции

Функция КоллекциюВТекст_JSON(JSONКоллекцией, Знач ПереносСтрок = Неопределено, Знач СимволОтступа = Неопределено) Экспорт
	
	ПереносСтрок = ?(ПереносСтрок = Неопределено, ПереносСтрокJSON.Авто, ПереносСтрок);
	СимволОтступа = ?(СимволОтступа = Неопределено, Символы.Таб, СимволОтступа);
	
	НоваяЗаписьJSON	= Новый ЗаписьJSON;
	ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON(ПереносСтрок, СимволОтступа);
	НоваяЗаписьJSON.УстановитьСтроку(ПараметрыЗаписиJSON);
	ЗаписатьJSON(НоваяЗаписьJSON, JSONКоллекцией);
	
	Возврат НоваяЗаписьJSON.Закрыть()
	
КонецФункции

Процедура Пауза(Секунд) Экспорт
	
	НачалоОжидания = ТекущаяУниверсальнаяДатаВМиллисекундах();
	
	Пока ТекущаяУниверсальнаяДатаВМиллисекундах() - НачалоОжидания < Секунд * 1000 Цикл
	КонецЦикла;
	
КонецПроцедуры